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| **FLE**1]D**PASSOQR 
| 
PPPPPPPP AAAAAA SSSSSSSS SSSSSSSS QaQaaa RRRRRRRR 
PPPPPPPP AAAAAA SSSSSSSS SSSSSSSS QQaQaad RRRRRRRR 
PP PP AA AA SS SS QQ QQ RR RR 
PP PP AA AA SS SS QQ QQ RR RR 
PP PP AA AA SS SS QQ QQ RR RR 
PP PP A AA SS SS QQ QQ RR RR 
PPPPPPPP ha AA SSSSSS SSSSSS QQ QQ RRRRRRRR 
PPPPPPPP Aa Aa SSSSSS SSSSSS QQ QQ RRRRRRRR 
PP AAAAAAAAAA SS SS QQ QQ QQ RR RR 
PP AAAAAAAAAA SS SS QQ QQ QQ RR RR 
PP AA Aa SS SS QQ QQ RR RR . 
PP AL Ah S$ SS QQ QQ RR RR . 
PP Ab AA SSSSSSSS SSSSSSSS QQQQ QQ RR RR 
PP AL AA SSSSSSSS SSSSSSSS QQQQ QQ RR RR ° 
LL III] SSSSSSSS 
LL 11111] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL 1111 SSSSSSSS 
fa 
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Table of contents 

+¢ 46 DECLARATIONS 

(3) 1 PAS$SQR_L = Return square of a signed longword 

(4) 11 PASS$SQR_LU = Return square of an unsigned longword 

(5) 138 PASSSQR_F = Return square of an F_floating 

(6) 19 PAS$SQR_D = Return square of a D_Floating 

(7) 236 PAS$SQR_G = Return square of a G_ floating 

(8) ev? PAS$SQR_H = Return square of an A_floating 


7 
o 
. 
. 
. 
6 
. 
° 
. 
o 
. 
° 
. 
. 
. 
2 
. 
. 
. 
° 
. 
. 
. 
e 
. 
_ 
. 
. 
. 
. 
. 
e 
° 
. 
e 
. 
e 
. 
e 
. 
. 
. 
. 
- 
. 
* 
a 
. 
. 
. 
a 
. 
e 
. 
° 
. 
© 
. 
_ 
. 
. 
. 
e 
. 
. 
. 
o 
. 
e 
. 
2 
~ 
ca 
7 
O 
. 
. 
. 
e 
. 
o 
. 
o 
. 
o 
. 
* 
. 
a 
. 
e 
. 
. 
. 
CJ 
> 
e 
. 
o 
. 
e 
. 
o 
. 
ae 
ce 
. 
s 
7 
e 
. 
. 


 PAS$SQR - Return Square of Value 16-SEP-19 1: AX/VMS cro V04-00 Page 1 FAS! 
(1-001 6-5 eats 9 93:06 PASRTL.SRCIPASSOR, MAR; 1 a) 10 
-TITLE PAS$SQR = Return Square of Value 

“IDENT /1=001/ ; File: *PASSOR.MAR Edit: $BL1001 


BARA RAARARRARRBARARARBSRAAAARSASARSASESASASELERS SES ASRS ESSE RA RSE S ELSE ERS E RES EE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS 7 irle i FURNISHED UNDER A LICENSE AND MAY BE yee AND sorace 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tat ne ND WITH THE 


a eS a vo ee 


*® ® 
** ® 
** ® 
*?® ® 
*® ® 
** ® 
*® ae 
*® ® 
*?® 2 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. * 
** ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
** ® 
** iy 
** 2 
*® t 
*?® * 
*® oa 
**® ® 
e * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
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; LARRBARAASAAAAASASELRASALESAARSARRRASARRERRRERSRRRR RRR RRR RRR RRR ERR RRR RRR RRS S ES OY 
++ 

; FACILITY: Pascal Language Support 

; ABSTRACT: 


This module contains six routines which return the square of 
their argument. 


; ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 6-Nov-1980 
; MODIFIED BY: 

; 1-001 = Original. SBL 6-Nov-1980 


i le 
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- Return Square of Value 16- 
DECLARATIONS 6- 
00 4 -SBTTL DECLARATIONS 
0090 23 : 
000 48 ; LIBRARY MACRO CALLS: 
44 49 ; 
B38 50 SSFDEF 
000 51 SPSLDEF 
0000 26 : 
0000 53 ; EXTERNAL DECLARATIONS: 
0000 54; 
0000 55 -DSABL GBL 
0000 56 ; NONE 
444 of 
000 58 ; MACROS: 
0000 59 ; 
0000 60 ; NONE 
0000 61 ; 
0000 6¢ ; EQUATED SYMBOLS: 
0000 63 ; 
0000 64 ; NONE 
0000 65 ; 
0000 66 ; OWN STORAGE: 
0000 67 ; 
0000 68 ; NONE 
0000 69 ; 
0000 70 ; PSECT DECLARATIONS: 
0000 1 3 
00000000 72 -PSECT _PASSCODE PIC 
0000 73 EXE, 
0000 74 


ae b 4 9 01:96:67 AX/VMS Macro Vv04-00 
SEP=1984 11:35:40 PASRTL.SRCJPASSQR.MAR; 1 


; Stack frame definitions 
; Processor status longword definitions 


; Force all external symbols to be declared 


»_USR, CON, REL, LCL, SHR, - 
RD, NOWRT, LONG 


roe 


| 
| 
| 
| 
| 
| 
| 
| 
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- Return square of a signed lo 6=SEP PASRTL.SRCJPASSQR.MAR; 1 (3) a” 
-SBITL PAS$SQR_L = Return square of a signed longword 


:4+4 
; FUNCTIONAL DESCRIPTION: 


| PAS$SSQR 
1-001 


; This routine returns the square of a signed Longword 
: CALLING SEQUENCE: 

; Result.wl.v = PAS$SQR_L (Long.rl.r) 

; FORMAL PARAMETERS: 

: Long - Signed longword argument 

; IMPLICIT INPUTS: 


: NONE 


FWP" CO OONOAU SW OOo 


; IMPLICIT OUTPUTS: 
NONE 


: ; ROUTINE VALUE: 
! , The square of the argument 
: ¢ ; SIDE EFFECTS: 
0000 104 SS$_INTOVF - Integer overflow 
0000 105 
0000 106 ;-- 
0000 107 
4000 si : ; -ENTRY PAS$SQR_L, “M<IV> ; Integer overflow must be enabled 
C5 0002 110 MULL3 @4(AP), @4(AP), RO 3 : pute result 
0008 111 RET ; Fnd of routine PAS$SQR_L 


0000 
0000 
0000 
0000 
0000 
0000 
50 04 BC 04 BC 
} 
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1-001 PAS$SQR_LU = Return square of an unsigne ety y O38 740 (CPASRTL.SRCIJPASSQR.MAR;1 ’ 
0003 1}? “ -SBTTL PAS$SQR_LU - Return square of an unsigned longword 
| 0098 115 ; FUNCTIONAL DESCRIPTION: 
B09 11? 3 This routine returns the square of an unsigned longword 
| $009 119 ; CALLING SEQUENCE: 
0009 1s : 
4484 ; 1: Result.wlu.v = PAS$SQR_LU (Long.rlu.r) 
0009 1 : ; FORMAL PARAMETERS: 
0009 126 ; 
0009 125 ; Long - Unsigned longword argument 
0009 126 ; 
0009 127 ; IMPLICIT INPUTS: 
0009 128; 
0009 16h 5 NONE 
Babe 130 ; 
0009 131 ; IMPLICIT OUTPUTS: 
0009 132 ; 
0009 133; NONE 
0009 134 ; 
0009 135 ; ROUTINE VALUE: 
0009 136; 
0009 137 ; The square of the argument 
0009 138 ; 
0009 139 ; SIDE EFFECTS: 
0009 140 ; 
0009 141 ; NONE 
0009 be : 
0009 143 ;-- 
0009 144 
0000 i484 ez -ENTRY PAS$SQR_LU, “M<> ; Integer overflow must be disabled 
50 04 8C 04 8C C5 QO0B 147 MULL3 @4(AP), @4(AP), RO ; Compute result 
04 0011 148 RET ; End of routine PAS$SQR_LU 
/ 
| 
a os ialea citi cethetin ial iaee oS SS Ske 


-v 
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1-001 - Return square of an F_floati 6=SEP-1984 11:55:40 CPASRTL.SRCJPASSOQR.MAR; 1 (5) 
-SBTTL PASS$SQR_F = Return square of an F_floating 


oe 
; FUNCTIONAL DESCRIPTION: 


we 


CSOOCOCCOCOOSCOCOOCOOOCOOOCOOCSOOOCOCOOCOOOOCOOOCOOOCOOCOOCOOOCOOCOO OC 
felelelelelelejleleleleoleleleleleleleleleleleleleleleleleleleleleleleleolelelaleololo!o ip -ie) 
Noss nn nn an in nn nt 9 9 i 


This routine returns the square of an F_floating value. 
CALLING SEQUENCE: 
Result.wf.v = PASSSQR_F (Single.rf.r) 
FORMAL PARAMETERS: 
Single = F_floating argument 
; IMPLICIT INPUTS: 
NONE 
; IMPLICIT OUTPUTS: 
; NONE 
; ROUTINE VALUE: 
; The square of the argument 
; SIDE EFFECTS: 
the argument is a reserved operand 
Oating overflow tra 


SS$_ROPRAND if 
FLTOVF floati 
floating overflow fault 
floating underflow trap if caller has enabled FU 
floating underflow fault if caller has enabled FU 


| 
0000 
0404 AD 06 €1 BBC 
0040 8F B8 SLSA_F 
50 04 8C 04 86C 45 : 3 
04 ET 


- 
_ 
oO 
< 
n 
nn 

teeete 


WD OF SPNMNPINININNINNIN NNN No No No NnoNoNnoNonoponononoponopofnonopopnonororrnn Oo 
Ok kk a dk nd 


© 0.00 09.00 09 09 09 09 09 09 09 SI NINN SN NS NNN SD OPA AAA AAO IMI 
MRO ODNA UES WIN $ O ODNAUE WIN $0 ODNAU EW O OONOA US WWIN OO 


«ENTRY PASS$SQR_F, “M<> 3; Entry point 
#SFSV_FU, SFSW_SAVE_PSW(FP), 10$ ; Skip if FU disabled 
BISPSW #P FU ; Enable FU because caller did 
10$ MULF Q@4(AP), @4(AP), RO ; Compute square 
R ; End of routine PAS$SQR_F 
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ei PASSSOR-D © Return Square of a D_floatin 6-SEP-1984 11:39:40 LPASRIL.seeJPAssaRmar:1 29° 
0 193 adi -SBTTL PAS$SQR_D = Return square of a D_floating 
o ; FUNCTIONAL DESCRIPTION: 
0 This routine returns the square of a D_floating value. 


CALLING SEQUENCE: 

Result.wd.v = PAS$SQR_D (Double.rd.r) 
FORMAL PARAMETERS: 

Double = D_floating argument 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

The square of the argument 
SIDE EFFECTS: 


DOOCSCOSCODSOSCOODODSODOCODODOCOOOCOOOODOOOOOODODOOOOOOCOO Oc 
SSSOSSSSSSOSSOSSSSSOSOSSOSSSOSSOSOSOSSOSOOSOSOSOSCSOO 
CARO PS POO POPOROPONOPONIPONOPONONINOPONOPINIPINIPINIPINIPIPINIPOMOFURIFUFIFUFINONUND F 
UNDAOR RAR R AERP RRR REPRE PP RPP PPP PPP PPP PPP PPP oO 
AWWA NIRS PONONONONMONNPONI ND BQO OOO OOO OOO 
PWN OODNAUESWN CO OWONAUS WROD DNAMNEWWN—OOONOUE 

Bete Ge Se Be Ge Ge Se Se Be Ge Ge Be Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Se Se 
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SS$_ROPRAND - if the argument is a reserved operand 
SS$_FLTOVF - floating overflow tra 
SS$_FLTOVF _F - floating overflow fault | 
SS$_FLTUND - floating underflow trap if caller has enabled FU 
SS$_FLTUND_F - floating underflow fault if caller has enabled FU 
0000 ENTRY PAS$SQR_D, “M<> 3; Entry point 
04 04 AD 06 €E1 BBC #SFSV_FU, SFSW_SAVE_PSW(FP), 10$ ; Skip if FU disabled 
0040 8F 68 BISPSW #PSLS$A_ ; Enable FU because caller did 
50 04 68C 04 86C 65 10$: MULD3 @4(AP)> @4(AP), RO ; Compute square 
04 RET ; End of routine PAS$SQR_D 
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PASSSQR_G : Return sauere of a G_floatin 6=-SEP-1984 11: $335 PASRTL.SRCJPASSQR.MAR; 1 _— (7) 
$ = ak -SBTTL PAS$SQR_G = Return square of a G_floating 
0 6 8 : FUNCTIONAL DESCRIPTION: 
0 6 40 ; This routine returns the square of a G_floating value. 
0 6 4g ; CALLING SEQUENCE: 
poe rf: Result.wg.v = PAS$SQR_G (Double.rg.r) 
0036 46 : FORMAL PARAMETERS: 
0036 rt 3 Double = G_floating argument 
0036 250 : IMPLICIT INPUTS: 
0036 3 
0036 388 — 
0036 $54 : IMPLICIT OUTPUTS: 
0036 > 
0036 387 — 
0036 238 : ROUTINE VALUE: 
Boae $00 : The square of the argument 
0036 e6¢ : SIDE EFFECTS: 
0036 er : SS$_ROPRAND - if the argument is a reserved operand 
003 265 ; SS$_FLTOVF _F - floating overflow fault 
Ooee 506 : SS$_FLTUND_F - floating underflow fault if caller has enabled FU 
tn | 
0000 0036 70 .ENTRY PAS$SQR_G, “M<> ; Entry point | 
04 04 AD 06 E1 0038 sf¢ BBC WSFSV_FU, SFSW_SAVE_PSW(FP), 10$ ; Skip if FU disabled 
F B68 003D 27 BISPSW #PSLSA FU : Enable FU because caller did 
50 04 BC 04 BC 45FD 0041 274 10$: MULG3 a@4(AP)> @4(AP), RO ; Compute squar 
04 0048 275 RET 3; End of pon tas PAS$SQR_G 
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a el -SBTTL PAS$SQR_H = Return square of an H_floating 
5 ; FUNCTIONAL DESCRIPTION: 
This routine returns the square of an H_floating value. 
CALLING SEQUENCE: 
CALL PAS$SQR_H (Result.wh.r, Quad.rh.r) 
FORMAL PARAMETERS: 


Result = H floating result 
Quad - H_floating argument 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


PASSSQR = Ret 
12001 PASSS 


The square of the argument 


MOOT OOOOCOCOOC OOOOOOOOO OWMWMMoc 
WD NAUE WAN -2£ OOO NAME WN 0 ODNAUE WN OOONOAUS WO 


0049 : 
ne ; SIDE EFFECTS: 
0049 S$S$_ROPRAND - if the argument is a reserved operand 
0049 3 SS$_FLTOVF _F - floating overflow fault 
Oneo 3 SS$_FLTUND_F - floating underflow fault if caller has enabled FU 
0048 ; = 
0049 
0000 9h 3 -ENTRY PAS$SQR_H, “M<> ; Entry point 
04 04 AD 06 €1 0048 i BBC #SFSV_FU, SFSW_SAVE_PSW(FP), 10$ ; Skip if FU disabled 
F 68 0050 ; BISPSW #PSLSA_FU : Enable FU becouse collier did 
04 BC 08 BC 08 BC 65FD 0054 10$: MULH3 SBtAP) @B(AP), @4(AP) ; Compute squa 
04 Ones ; RET : End of rout ine PAS$SQR_H 

005D 3 - END : End of module PAS$SQR 
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Symbol table 6-SEP-1984 11:53:40 [CPASRTL.SRC CIP ASSQR.MAR;1 (8) 
PAS$SQR_D B08 8 RG 
PASSSOQR—F 999 O12 RG 
PAS$SQR~G 0 036 RG 
PAS$SQR-H 00000049 RG 
PASS$SSQR_ 414 4444 RG 
PAS$SQR_ LU 44 09 RG 0 
$m = 00000040 
SF$V_Fu = 00000006 
SFSW_SAVE_PSwW = 00000004 
 wecesceccocoeccn e 
: 1 Psect "synopsis : 
PSECT name Allocation PSECT No. Attributes 
» OB .« 00000000 <( 00 3 NOPIC USR CON ABS LCL N ro NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0:) 01 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
PASSCODE 0000005D ( 9 02 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
Soe ee eee ee He ee ee eee + 
' ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 00:00:00.08 00:00:01.20 
Command processing 72 00:00:00.69 00:00:03.66 
Pass 1 110 00:00:01.45 00:00:07.48 
syabol table sort eS BS Se 00:00:00.09 
Pass 2 6 00:00:00.6 00:00:01.80 
Symbol table output ¢ 00:00:00.02 00:00:00.02 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 262 00:00:02.95 00:00:14.27 


The working set Limit was 900 pages. 

7203 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 74 non-local and 4 Local v,. ols. 
319 source Lines were read in Pass 1, cid. object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


SSS eRe Se REBOOT eR Oe} 


Macro Library name Macros defined 
~$255$DUA28: (SYSLIBISTARLET MLB; 2 etek = Wx 
131 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:PASSQR/OBJ=OBJ$:PASSQR MSRC$:PASSQR/UPDATE=(ENH$:PASSQR) 
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